﻿<Serializable()> _
Public Class EctaCorriente

#Region "           Atributos                       "
    Private _idCuenta As Int32
    Private _nroCuenta As String
    Private _estado As String
    Private _descEstado As String
    Private _idMoneda As Emoneda
    Private _idEntidadFin As Int32
    Private _idUsuario As Int32
#End Region

#Region "           Propiedades                     "
    Public Property idCuenta() As Int32
        Get
            Return _idCuenta
        End Get
        Set(ByVal value As Int32)
            _idCuenta = value
        End Set
    End Property
    Public Property nroCuenta() As String
        Get
            Return _nroCuenta
        End Get
        Set(ByVal value As String)
            _nroCuenta = value
        End Set
    End Property
    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property Emoneda() As Emoneda
        Get
            Return _idMoneda
        End Get
        Set(ByVal value As Emoneda)
            _idMoneda = value
        End Set
    End Property
    Public Property idEntidadFin() As Int32
        Get
            Return _idEntidadFin
        End Get
        Set(ByVal value As Int32)
            _idEntidadFin = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
#End Region

#Region "           Propiedades Avanzadas           "

#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idCuenta As Int32, ByVal nroCuenta As String)
        Me.idCuenta = idCuenta
        Me.nroCuenta = nroCuenta
    End Sub
    Public Sub New(ByVal idEntidadFin As Int32, ByVal idCuenta As Int32, ByVal nroCuenta As String, ByVal idMoneda As Int32, _
                   ByVal descMoneda As String, ByVal estado As String)
        Me.idEntidadFin = idEntidadFin
        Me.idCuenta = idCuenta
        Me.nroCuenta = nroCuenta
        _idMoneda = New Emoneda(idMoneda, descMoneda)
        Me.estado = estado
        Me.descEstado = IIf(estado = 1, "HABILITADO", "DESHABILITADO")
    End Sub
#End Region

End Class
